home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / work / debugtes.mod next >
Encoding:
Text File  |  1994-09-22  |  1.6 KB  |  80 lines
  1. MODULE DebugTest;
  2. (***********************************************************************
  3.   Version : 07.06.89   14:23
  4.  
  5.   Dieses Modul dient zum Ausprobieren des Modula-Debuggers.
  6.   Es benützt globale und lokale Variablen verschiedener Typen,
  7.   die im Debugger im Datenfenster 1 bzw. Datenfenster 2 inspiziert
  8.   werden können.
  9.   Außerdem kann die Prozedur-Aufrufkette verfolgt werden.
  10.  
  11.                                            M. Bayer
  12. *************************************************************************)
  13.  
  14.  FROM SYSTEM IMPORT ADR;
  15.  
  16.  
  17. TYPE
  18.     GType   = (maennlich, weiblich);
  19.     FType   = (blond, braun, schwarz, grau, glatze);
  20.     RecType = RECORD
  21.                 Name :      ARRAY [0..20] OF CHAR;
  22.                 Geschlecht: GType;
  23.                 Haarfarbe : FType;
  24.                 Groesse :   CARDINAL;
  25.                END;
  26.  
  27.     RecPtr = POINTER TO RecType;
  28.  
  29.  (* globale Variablendefinition*)
  30. VAR
  31.  
  32.   globint:    INTEGER;
  33.   globcard:   CARDINAL;
  34.   zeichen:    CHAR;
  35.   pointer:    RecPtr;
  36.   record:     RecType;
  37.  
  38. PROCEDURE p1 (nutzlos: BOOLEAN);
  39.  
  40. (* lokale Variablen *)
  41. VAR
  42.   longint:  LONGINT;
  43.   longcard: LONGCARD;
  44.  
  45. BEGIN
  46.   longint := - 1234567D;
  47.   longcard := 1234567D;
  48.   HALT;
  49. END p1;
  50.  
  51.  
  52. PROCEDURE p2;
  53.  
  54. VAR
  55.   b: BOOLEAN;
  56.   c: CHAR;
  57.  
  58. BEGIN
  59.   c := "c";
  60.   b := NOT b;
  61.   p1 (FALSE);
  62. END p2;
  63.  
  64.  
  65. BEGIN
  66.   globint := -1;
  67.   globcard := 60000;
  68.   zeichen := "A";
  69.   pointer := ADR(record);
  70.   WITH pointer^ DO
  71.     Name := "Mustermann";
  72.     Geschlecht := maennlich;
  73.     Haarfarbe := blond;
  74.     Groesse := 178;
  75.   END (*WITH*);
  76.  
  77.   p2;
  78.  
  79. END DebugTest.
  80.